home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0292.ZIP
/
WAMPUM.ARC
/
INIT.PRG
< prev
next >
Wrap
Text File
|
1985-12-21
|
896b
|
40 lines
* INIT.PRG initializes the DATA BASE system.
SET TALK OFF
SET BELL OFF
CLEAR ALL
CLEAR
RESTORE FROM CONFIG
*IF LEN(TRIM(FILESPEC))=0
* FILESPEC="USE DEMO INDEX USER "
* HEADING=SPACE(14)+"Microcomputer Data Base <> Main Menu "
* CRITERIA=SPACE(40)
* USERRPT1="USER REPORT #1 "
* USERRPT2="USER REPORT #2 "
* USERRPT3="USER REPORT #3 "
* REPORT1="USERRPT1"
* REPORT2="USERRPT1"
* REPORT3="USERRPT1"
* SAVE TO CONFIG
* HEADING=HEADING+"(Version "+VERSION+")"
* MENU="DEMOMENU"
*ENDIF
? "DBASE INITIALIZED."
SELECT 1
&FILESPEC
? "DATA BASE OPENED SUCCESSFULLY."
SET PROC TO MENU
DO MAIN
CLEAR
CLOSE PROC
CLOSE FORMAT
CLOSE DATABASES
CLEAR ALL
SET TALK ON
? "DATA BASE CLOSED SUCCESSFULLY."
? "TYPE QUIT AND PRESS <RETURN> TO EXIT."
RETURN
LOSE DATABASES
CLEAR ALL
SET TALK ON
? "DATA BASE CLOSED SUCCESSFULLY."
? "TYPE QUIT AND PRESS